home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 15 / CU Amiga Magazine's Super CD-ROM 15 (1997)(EMAP Images)(GB)[!][issue 1997-10].iso / CUCD / Graphics / Ghostscript / source / zimage.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-05-06  |  12.9 KB  |  473 lines
  1. /* Copyright (C) 1989, 1995, 1996, 1997 Aladdin Enterprises.  All rights reserved.
  2.   
  3.   This file is part of Aladdin Ghostscript.
  4.   
  5.   Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6.   or distributor accepts any responsibility for the consequences of using it,
  7.   or for whether it serves any particular purpose or works at all, unless he
  8.   or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9.   License (the "License") for full details.
  10.   
  11.   Every copy of Aladdin Ghostscript must include a copy of the License,
  12.   normally in a plain ASCII text file named PUBLIC.  The License grants you
  13.   the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14.   under certain conditions described in the License.  Among other things, the
  15.   License requires that the copyright notice and this notice be preserved on
  16.   all copies.
  17. */
  18.  
  19. /* zimage.c */
  20. /* Image operators */
  21. #include "ghost.h"
  22. #include "errors.h"
  23. #include "oper.h"
  24. #include "estack.h"            /* for image[mask] */
  25. #include "gsstruct.h"
  26. #include "ialloc.h"
  27. #include "igstate.h"
  28. #include "ilevel.h"
  29. #include "store.h"
  30. #include "gscspace.h"
  31. #include "gsmatrix.h"
  32. #include "gsimage.h"
  33. #include "stream.h"
  34. #include "ifilter.h"        /* for stream exception handling */
  35. #include "iimage.h"
  36.  
  37. /* Define the maximum number of image components. */
  38. /* (We refer to this as M in a number of places below.) */
  39. #ifdef DPNEXT
  40. #  define max_components 5
  41. #else
  42. #  define max_components 4
  43. #endif
  44.  
  45. /* Forward references */
  46. private int image_setup(P5(gs_image_t *pim, bool multi, os_ptr op, const gs_color_space *pcs, int npop));
  47. private int image_proc_continue(P1(os_ptr));
  48. private int image_file_continue(P1(os_ptr));
  49. private int image_file_buffered_continue(P1(os_ptr));
  50. private int image_string_process(P3(os_ptr, gs_image_enum *, int));
  51. private int image_cleanup(P1(os_ptr));
  52.  
  53. /* <width> <height> <bits/sample> <matrix> <datasrc> image - */
  54. int
  55. zimage(register os_ptr op)
  56. {    return zimage_opaque_setup(op, false,
  57. #ifdef DPNEXT
  58.                    false,
  59. #endif
  60.                    NULL, 5);
  61. }
  62.  
  63. /* <width> <height> <paint_1s> <matrix> <datasrc> imagemask - */
  64. int
  65. zimagemask(register os_ptr op)
  66. {    gs_image_t image;
  67.  
  68.     check_type(op[-2], t_boolean);
  69.     gs_image_t_init_mask(&image, op[-2].value.boolval);
  70.     return image_setup(&image, false, op, NULL, 5);
  71. }
  72.  
  73. /* Common setup for image, colorimage, and alphaimage. */
  74. /* Fills in MultipleDataSources, BitsPerComponent, HasAlpha. */
  75. #ifdef DPNEXT
  76. int
  77. zimage_opaque_setup(os_ptr op, bool multi, bool has_alpha,
  78.   const gs_color_space *pcs, int npop)
  79. #else
  80. int
  81. zimage_opaque_setup(os_ptr op, bool multi,
  82.   const gs_color_space *pcs, int npop)
  83. #endif
  84. {    gs_image_t image;
  85.  
  86.     check_int_leu(op[-2], (level2_enabled ? 12 : 8));  /* bits/sample */
  87.     gs_image_t_init_color(&image);
  88.     image.BitsPerComponent = (int)op[-2].value.intval;
  89. #ifdef DPNEXT
  90.     image.HasAlpha = has_alpha;
  91. #endif
  92.     return image_setup(&image, multi, op, pcs, npop);
  93. }
  94.  
  95. /* Common setup for [color]image and imagemask. */
  96. /* Fills in Width, Height, ImageMatrix, ColorSpace. */
  97. private int
  98. image_setup(gs_image_t *pim, bool multi, os_ptr op,
  99.   const gs_color_space *pcs, int npop)
  100. {    int code;
  101.  
  102.     check_type(op[-4], t_integer);    /* width */
  103.     check_type(op[-3], t_integer);    /* height */
  104.     if ( op[-4].value.intval < 0 || op[-3].value.intval < 0 )
  105.       return_error(e_rangecheck);
  106.     if ( (code = read_matrix(op - 1, &pim->ImageMatrix)) < 0 )
  107.       return code;
  108.     pim->ColorSpace = pcs;
  109.     pim->Width = (int)op[-4].value.intval;
  110.     pim->Height = (int)op[-3].value.intval;
  111.     return zimage_setup(pim, multi, op, npop);
  112. }
  113.  
  114. /* Common setup for Level 1 image/imagemask/colorimage, alphaimage, and */
  115. /* the Level 2 dictionary form of image/imagemask. */
  116. int
  117. zimage_setup(const gs_image_t *pim, bool multi, const ref *sources, int npop)
  118. {    int code;
  119.     gs_image_enum *penum;
  120.     int px;
  121.     const ref *pp;
  122.     int num_sources =
  123.       (multi ? gs_color_space_num_components(pim->ColorSpace) : 1);
  124.     bool must_buffer = false;
  125.  
  126.     /*
  127.      * We push the following on the estack.  "Optional" values are
  128.      * set to null if not used, so the offsets will be constant.
  129.      *    Control mark,
  130.      *    M data sources (1-M actually used),
  131.      *    M row buffers (only if must_buffer),
  132.      *    current plane index,
  133.      *    current byte in row (only if must_buffer, otherwise 0),
  134.      *    enumeration structure.
  135.      */
  136. #define inumpush (max_components * 2 + 4)
  137.     check_estack(inumpush + 2);  /* stuff above, + continuation + proc */
  138. #ifdef DPNEXT
  139.     if ( pim->HasAlpha && multi )
  140.       ++num_sources;
  141. #endif
  142.     /*
  143.      * Note that the data sources may be procedures, strings, or (Level
  144.      * 2 only) files.  (The Level 1 reference manual says that Level 1
  145.      * requires procedures, but Adobe Level 1 interpreters also accept
  146.      * strings.)  The sources must all be of the same type.
  147.      *
  148.      * If the sources are files, and two or more are the same file,
  149.      * we must buffer data for each row; otherwise, we can deliver the
  150.      * data directly out of the stream buffers.
  151.      */
  152.     for ( px = 0, pp = sources; px < num_sources; px++, pp++ )
  153.     {    switch ( r_type(pp) )
  154.         {
  155.         case t_file:
  156.             if ( !level2_enabled )
  157.               return_error(e_typecheck);
  158.             /* Check for aliasing. */
  159.             { int pi;
  160.               for ( pi = 0; pi < px; ++pi )
  161.                 if ( sources[pi].value.pfile == pp->value.pfile )
  162.                   must_buffer = true;
  163.             }
  164.             /* falls through */
  165.         case t_string:
  166.             if ( r_type(pp) != r_type(sources) )
  167.               return_error(e_typecheck);
  168.             check_read(*pp);
  169.             break;
  170.         default:
  171.             if ( !r_is_proc(sources) )
  172.               return_error(e_typecheck);
  173.             check_proc(*pp);
  174.         }
  175.     }
  176.     if ( (penum = gs_image_enum_alloc(imemory, "image_setup")) == 0 )
  177.       return_error(e_VMerror);
  178.     code = gs_image_init(penum, pim, multi, igs);
  179.     if ( code != 0 )    /* error, or empty image */
  180.     {    ifree_object(penum, "image_setup");
  181.         if ( code >= 0 )    /* empty image */
  182.           pop(npop);
  183.         return code;
  184.     }
  185.     push_mark_estack(es_other, image_cleanup);
  186.     ++esp;
  187.     for ( px = 0, pp = sources; px < max_components; esp++, px++, pp++ )
  188.       { if ( px < num_sources )
  189.           *esp = *pp;
  190.         else
  191.           make_null(esp);
  192.         make_null(esp + max_components);    /* buffer */
  193.       }
  194.     esp += max_components + 2;
  195.     make_int(esp - 2, 0);        /* current plane */
  196.     make_int(esp - 1, 0);        /* current byte in row */
  197.     make_istruct(esp, 0, penum);
  198.     switch ( r_type(sources) )
  199.       {
  200.       case t_file:
  201.         if ( must_buffer )
  202.           { /* Allocate a buffer for each row. */
  203.             uint size = gs_image_bytes_per_row(penum);
  204.             for ( px = 0; px < num_sources; ++px )
  205.               { byte *sbody = ialloc_string(size, "image_setup");
  206.             if ( sbody == 0 )
  207.               { esp -= inumpush;
  208.                 image_cleanup(osp);
  209.                 return_error(e_VMerror);
  210.               }
  211.             make_string(esp - (max_components + 2) + px,
  212.                     icurrent_space, size, sbody);
  213.               }
  214.             push_op_estack(image_file_buffered_continue);
  215.           }
  216.         else
  217.           { push_op_estack(image_file_continue);
  218.           }
  219.         break;
  220.       case t_string:
  221.         pop(npop);
  222.         return image_string_process(osp, penum, num_sources);
  223.       default:            /* procedure */
  224.         push_op_estack(image_proc_continue);
  225.         *++esp = sources[0];
  226.         break;
  227.       }
  228.     pop(npop);
  229.     return o_push_estack;
  230. }
  231. /* Continuation for procedure data source. */
  232. private int
  233. image_proc_continue(register os_ptr op)
  234. {    gs_image_enum *penum = r_ptr(esp, gs_image_enum);
  235.     uint size, used;
  236.     int code;
  237.     int px;
  238.     const ref *pproc;
  239.  
  240.     if ( !r_has_type_attrs(op, t_string, a_read) )
  241.     {    check_op(1);
  242.         /* Procedure didn't return a (readable) string.  Quit. */
  243.         esp -= inumpush;
  244.         image_cleanup(op);
  245.         return_error(!r_has_type(op, t_string) ? e_typecheck : e_invalidaccess);
  246.     }
  247.     size = r_size(op);
  248.     if ( size == 0 )
  249.       code = 1;
  250.     else
  251.       code = gs_image_next(penum, op->value.bytes, size, &used);
  252.     if ( code )
  253.       {    /* Stop now. */
  254.         esp -= inumpush;
  255.         pop(1);  op = osp;
  256.         image_cleanup(op);
  257.         return (code < 0 ? code : o_pop_estack);
  258.       }
  259.     pop(1);
  260.     px = (int)++(esp[-2].value.intval);
  261.     pproc = esp - (inumpush - 2);
  262.     if ( px == max_components || r_has_type(pproc + px, t_null) )
  263.       esp[-2].value.intval = px = 0;
  264.     push_op_estack(image_proc_continue);
  265.     *++esp = pproc[px];
  266.     return o_push_estack;
  267. }
  268. /* Continue processing data from an image with file data sources */
  269. /* and no file buffering. */
  270. private int
  271. image_file_continue(os_ptr op)
  272. {    gs_image_enum *penum = r_ptr(esp, gs_image_enum);
  273.     const ref *pproc = esp - (inumpush - 2);
  274.  
  275.     for ( ; ; )
  276.       {    uint size = max_uint;
  277.         int code;
  278.         int pn, px;
  279.         const ref *pp;
  280.  
  281.         /*
  282.          * Do a first pass through the files to ensure that they all
  283.          * have data available in their buffers, and compute the min
  284.          * of the available amounts.
  285.          */
  286.  
  287.         for ( pn = 0, pp = pproc;
  288.               pn < max_components && !r_has_type(pp, t_null);
  289.               ++pn, ++pp
  290.             )
  291.           {    stream *s = pp->value.pfile;
  292.             int min_left = sbuf_min_left(s);
  293.             uint avail;
  294.  
  295.             while ( (avail = sbufavailable(s)) <= min_left )
  296.               {    int next = sgetc(s);
  297.  
  298.                 if ( next >= 0 )
  299.                   { sputback(s);
  300.                     if ( s->end_status == EOFC || s->end_status == ERRC )
  301.                       min_left = 0;
  302.                     continue;
  303.                   }
  304.                 switch ( next )
  305.                   {
  306.                   case EOFC:
  307.                     break;        /* with avail = 0 */
  308.                   case INTC:
  309.                   case CALLC:
  310.                     return
  311.                       s_handle_read_exception(next, pp,
  312.                         NULL, 0, image_file_continue);
  313.                   default:
  314.                   /* case ERRC: */
  315.                     return_error(e_ioerror);
  316.                   }
  317.                 break;            /* for EOFC */
  318.               }
  319.             /* Note that in the EOF case, we can get here with */
  320.             /* avail < min_left. */
  321.             if ( avail >= min_left )
  322.               { avail -= min_left;
  323.                 if ( avail < size )
  324.                   size = avail;
  325.               }
  326.             else
  327.               size = 0;
  328.           }
  329.  
  330.         /* Now pass the min of the available buffered data to */
  331.         /* the image processor. */
  332.  
  333.         if ( size == 0 )
  334.           code = 1;
  335.         else
  336.           { int pi;
  337.             uint used;        /* only set for the last plane */
  338.  
  339.             for ( px = 0, pp = pproc, code = 0; px < pn && !code;
  340.               ++px, ++pp
  341.             )
  342.               code = gs_image_next(penum, sbufptr(pp->value.pfile),
  343.                        size, &used);
  344.             /* Now that used has been set, update the streams. */
  345.             for ( pi = 0, pp = pproc; pi < px; ++pi, ++pp )
  346.               sbufskip(pp->value.pfile, used);
  347.           }
  348.         if ( code )
  349.           {    esp -= inumpush;
  350.             image_cleanup(op);
  351.             return (code < 0 ? code : o_pop_estack);
  352.           }
  353.       }
  354. }
  355. /* Continue processing data from an image with file data sources */
  356. /* and file buffering.  This is similar to the procedure case. */
  357. private int
  358. image_file_buffered_continue(os_ptr op)
  359. {    gs_image_enum *penum = r_ptr(esp, gs_image_enum);
  360.     const ref *pproc = esp - (inumpush - 2);
  361.     int px = esp[-2].value.intval;
  362.     int dpos = esp[-1].value.intval;
  363.     uint size = gs_image_bytes_per_row(penum);
  364.     int code = 0;
  365.  
  366.     while ( !code )
  367.       {    const ref *pp;
  368.         uint avail = size;
  369.         uint used;
  370.         int pi;
  371.  
  372.         /* Accumulate data until we have a full set of planes. */
  373.         while ( px < max_components &&
  374.             !r_has_type((pp = pproc + px), t_null)
  375.               )
  376.           { const ref *pb = pp + max_components;
  377.             uint used;
  378.             int status = sgets(pp->value.pfile, pb->value.bytes,
  379.                        size - dpos, &used);
  380.  
  381.             if ( (dpos += used) == size )
  382.               dpos = 0, ++px;
  383.             else switch ( status )
  384.               {
  385.               case EOFC:
  386.             if ( dpos < avail )
  387.               avail = dpos;
  388.             dpos = 0, ++px;
  389.             break;
  390.               case INTC:
  391.               case CALLC:
  392.             /* Call out to read from a procedure-based stream. */
  393.             esp[-2].value.intval = px;
  394.             esp[-1].value.intval = dpos;
  395.             return s_handle_read_exception(status, pp,
  396.                 NULL, 0, image_file_buffered_continue);
  397.               default:
  398.               /*case ERRC:*/
  399.             return_error(e_ioerror);
  400.               }
  401.           }
  402.         /* Pass the data to the image processor. */
  403.         if ( avail == 0 )
  404.           { code = 1;
  405.             break;
  406.           }
  407.         for ( pi = 0, pp = pproc + max_components;
  408.               pi < px && !code;
  409.               ++pi, ++pp
  410.             )
  411.           code = gs_image_next(penum, pp->value.bytes, avail, &used);
  412.         /* Reinitialize for the next row. */
  413.         px = dpos = 0;
  414.       }
  415.     esp -= inumpush;
  416.     image_cleanup(op);
  417.     return (code < 0 ? code : o_pop_estack);
  418. }
  419. /* Process data from an image with string data sources. */
  420. /* This never requires callbacks, so it's simpler. */
  421. private int
  422. image_string_process(os_ptr op, gs_image_enum *penum, int num_sources)
  423. {    int px = 0;
  424.  
  425.     for ( ; ; )
  426.       {    const ref *psrc = esp - (inumpush - 2) + px;
  427.         uint size = r_size(psrc);
  428.         uint used;
  429.         int code;
  430.  
  431.         if ( size == 0 )
  432.           code = 1;
  433.         else
  434.           code = gs_image_next(penum, psrc->value.bytes, size, &used);
  435.         if ( code )
  436.           {    /* Stop now. */
  437.             esp -= inumpush;
  438.             image_cleanup(op);
  439.             return (code < 0 ? code : o_pop_estack);
  440.           }
  441.         if ( ++px == num_sources )
  442.           px = 0;
  443.       }
  444. }
  445. /* Clean up after enumerating an image */
  446. private int
  447. image_cleanup(os_ptr op)
  448. {    gs_image_enum *penum = r_ptr(esp + inumpush, gs_image_enum);
  449.     const ref *pb;
  450.  
  451.     /* Free any row buffers, in LIFO order as usual. */
  452.     for ( pb = esp + (max_components * 2 + 1);
  453.           pb >= esp + (max_components + 2);
  454.           --pb
  455.         )
  456.       if ( r_has_type(pb, t_string) )
  457.         gs_free_string(imemory, pb->value.bytes, r_size(pb),
  458.                "image_cleanup");
  459.     gs_image_cleanup(penum);
  460.     ifree_object(penum, "image_cleanup");
  461.     return 0;
  462. }
  463.  
  464. /* ------ Initialization procedure ------ */
  465.  
  466. BEGIN_OP_DEFS(zimage_op_defs) {
  467.     {"5image", zimage},
  468.     {"5imagemask", zimagemask},
  469.         /* Internal operators */
  470.     {"1%image_proc_continue", image_proc_continue},
  471.     {"0%image_file_continue", image_file_continue},
  472. END_OP_DEFS(0) }
  473.